home *** CD-ROM | disk | FTP | other *** search
/ Trading on the Edge / Trading On The Edge - CD-ROM Toolkit (Wayzata Technology)(2031)(1994).bin / pc / mac_file / vendor_d / neuralwa / nw2v50 / drsreinf.nnc < prev    next >
Text File  |  1993-08-23  |  2KB  |  64 lines
  1. csv3.8        !file format is Control Strategy Version 3.8
  2. ! Aug 92  (drsreinf.nnc)  Reinforcement learning
  3. !************************************************************************
  4. !*                                    *
  5. !*    Directed Random Search Reinforcement                *
  6. !*                                    *
  7. !************************************************************************
  8. !
  9. !MASK     label    op-code    operands    comment
  10. L_saR_sa    trace    aux3        ! set trace option to aux3
  11. L_saR_sa    optset    op:reinf    ! reinforcment learning
  12. Li_aR_sa    cset    recall,0    ! recall count
  13. !
  14. ! Recall/Test is standard feed-forward pass through the network
  15. !
  16. ! Get input (reinf/test/recall mode only)
  17. !
  18. L___R_sa    lset    in        ! input layer
  19. L___R_sa    io    read        ! get input data
  20. !
  21. ! Do a forward pass through network through the network
  22. ! If there is no learn function this might be a projective layer
  23. ! and the sum MUST be split.  Otherwise, it might be a cascaded layer
  24. ! and the sum must NOT be split
  25. L___R_sa @rloop    fcmp    learnf,ll:none    ! check out learn function 
  26. L___R_sa    bne    @nospl
  27. L___R_sa    math    sum|fire
  28. L___R_sa    math    rnoise|tran|output|fire
  29. L___R_sa    brct    @nxtly
  30. L___R_sa @nospl    math    sum|rnoise|tran|output|fire
  31. L___R_sa @nxtly    lset    cur,1        ! next layer
  32. L___R_sa     lcmp    out        ! at output layer ?
  33. L___R_sa    blt    @rloop        ! loop till done
  34. !
  35. ! Compute final output
  36. !
  37. L___R_sa    math    sum|tran|output|fire
  38. !
  39. ! read in desired output (reinf/test mode only)
  40. L___R_sa    io    rcltst        ! get desired output (test)
  41. L___R_sa    math    ce=e|e-=w|swap|fire  ! Error for instruments
  42. ! Write out result
  43. L___R_sa    io    write        ! recall
  44. !
  45. !
  46. ! Learn: no input or output
  47. !
  48. ! Call error function at output layer since in DRS
  49. ! further processing is needed to drive learning (as in DRS)
  50. ! Zero out individual errors since these are meaningless
  51. ! and may confuse
  52. L_saR___    lset    out        ! output layer
  53. L_saR___     math    e-=w|e=0|fire   !
  54. !
  55. ! Now adjust weights for each layer in turn
  56. L_saR___    lset    in        ! input layer
  57. L_saR___ @lloop    math    learn|fire      !
  58. L_saR___    lset    cur,1        ! next layer
  59. L_saR___    lcmp    out        ! at output layer ?
  60. L_saR___    blt    @lloop        ! loop till done
  61. L_saR___    math    learn|fire      !
  62. !
  63. LisaRisa    trace    0        ! turn off any trace function
  64.